home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / PLUS4 / plus4disk1.d64 / ch1.04 color < prev    next >
Text File  |  2009-01-03  |  3KB  |  59 lines

  1. Ç*NB"1:CH1.04  COLOR"
  2. Ç*SP0:LM8:RM62:PP66:PG59
  3. Ç*VP3:HL8:HR72:HD0:├16/+4: ├╧╠╧╥ ╨╥╔╬╘╔╬╟              ,,╙ECTION XX
  4. Ç*HS2:------------------------------------,,----------
  5. Ç*FT0:-----------------------,,----------
  6. Ç*FS3:(C) 1984 ┼LIZABETH ─EAL,,         Ç#
  7. ╙ECTION
  8. Ç*LN2:CN1;├╧╠╧╥╞╒╠Çú╨╥╔╬╘╔╬╟Ç*LN2:CN0
  9.      ╘O EMPHASIZE AN IMPORTANT MESSAGE YOU CAN MAKE IT GLOW THROUGH THE AVAILABLE COLORS. ╫HEN PRINTED FAST ENOUGH THE EFFECT IS ALMOST TRANSPARENT. ╬OW YOU CAN PRINT "├┴╘╙ ╬╧╘ ┴╠╠╧╫┼─ ╧╬ ╘╚┼ ╦┼┘┬╧┴╥─" AND CHANCES ARE IT WILL BE NOTICED AND UNDERSTOOD.
  10.  
  11. // PRG: COLOR STRING //
  12.  
  13. ╘HE PROGRAM IS IN TWO SECTION. ╘HE FIRST FLASHES THE ENTIRE MESSAGE IN ONE COLOR, SWITCHING BETWEEN THE AVAILABLE COLORS. ╘HE SECOND SECTION PRINTS EACH LETTER IN A DIFFERENT COLOR AND ROTATES THROUGH THE COLORS CONTINUOUSLY.
  14.  
  15. ***  ╓┴╥╔┴┬╠┼╙  ***
  16.  
  17. ├$  CONTAINS ALL THE COLORS. ╘YPE IT IN BY
  18.     PRESSING THE ├╘╥╠ KEY AND THE NUMBERS
  19.     1 TO 0, THEN THE SAME WHILE HOLDING THE
  20.     THE ╠OGO KEY
  21. ╠├  IS THE LENGTH OF ├$
  22. ═$  MESSAGE TO PRINT ON THE SCREEN
  23. ╔$  KEYBOARD CHARACTER TO STOP THE SHOW
  24. ├   COLOR NUMBER
  25.  
  26. Ç*CN1;--- ╞╠┴╙╚╔╬╟ ╘╚┼ ┼╬╘╔╥┼ ═┼╙╙┴╟┼ ---Ç*CN0
  27.  
  28. ***  ╔╬╙╘╥╒├╘╔╧╬╙  ***
  29.  
  30.      ╘YPE IN LINES 110-170. ╠INE 120 NEEDS THE CLEAR-SCREEN CHARACTER IN QUOTES. ╠INE 150 HAS TWO GRAPHICS; THE FIRST ONE IS ╚╧═┼ IN QUOTES, THE SECOND ONE IS ╥╓╙ IN QUOTES. ╥╒╬ IT, PRESS ANY KEY TO ╙╘╧╨.
  31.  
  32. ***  ─┼╘┴╔╠╙  ***
  33.  
  34.      ╫E LOOP ROUND AND ROUND BETWEEN THE ╞╧╥ AND THE ╬┼╪╘ ╩. ╫E PRINT IN LINE 150 BY TAKING A PIECE OF THE COLOR STRING - ╩-TH PIECE TO BE SPECIFIC (IT IS RELATED TO THAT ╩ IN LINE 140) AND FOLLOWING IT WITH OUR ═$ IN REVERSE. ╫E SLOW THINGS DOWN A LITTLE BIT BY AN ADDITIONAL LOOP (THE ╦-LOOP IN LINE 160) WHICH DOES NOTHING OTHER THAN COUNT TO 30. ╫E THEN CHECK IF YOU PRESSED ANY KEY, AND IF NOT WE GO RIGHT BACK TO THE BEGINNING WHICH IS THE ╞╧╥ IN LINE 140. ┴ND THE COMPUTER NEVER EVEN SAYS "OH, NO, NOT AGAIN!". ╬ICE.
  35.  
  36.      ╔F YOU DID PRESS A KEY, WE DROP DOWN TO LINE 180 TO BEGIN ANOTHER SET OF DISPLAYS. ╫E HAVEN'T TYPED LINE 180 YET, SO THE PROGRAM STOPS HERE.
  37.  
  38. ***  ╨╥╧╩┼├╘  ***
  39.  
  40.      ╔NSTEAD OF THE TOP OF THE SCREEN, PRINT THE MESSAGE IN SOME OTHER LOCATION, PERHAPS CENTERED NICELY.
  41.  
  42. Ç*CN1;--- ╞╠┴╙╚╔╬╟ ╧╬┼ ╠┼╘╘┼╥ ┴╘ ┴ ╘╔═┼ ---Ç*CN0
  43.  
  44. ***  ╔╬╙╘╥╒├╘╔╧╬╙  ***
  45.  
  46.      ╘YPE IN FROM LINE 180 TO THE END. ╠INE 190 NEEDS A ╚╧═┼ IN QUOTES, LINE 210 NEEDS ╥╓╙. ╥╒╬ IT, STOP USING ANY KEY.
  47.  
  48. ***  ─┼╘┴╔╠╙  ***
  49.  
  50.      ╫E USE THE SAME INFORMATION AS WAS USED IN THE FIRST PART, SO WE NEED TO ╥╒╬ FROM THE BEGINNING. ╥╒╬ AND PUSH A KEY. ╘HIS WILL SEND US DOWN TO THE SECOND SECTION.
  51.  
  52.      ╫E NOW PRINT EACH LETTER OF THE MESSAGE IN REVERSE AND IN DIFFERENT COLOR,  SEE LINE 210. ╘HIS CONTINUES UNTIL ANY KEY IS PRESSED. ╘HE COLORS ARE TAKEN ONE AT A TIME FROM THE ├╙$ STRING IN LINE 110. ╫E WALK THROUGH THEM REPEATEDLY: WHEN WE RUN OUT OF COLORS, WE GO BACK TO THE BEGINNING (LINE 190).
  53.  
  54. ***  ╨╥╧╩┼├╘╙   ***
  55.  
  56.      ╙OME SIMPLE MODIFICATIONS YOU CAN MAKE: CHANGE THE DELAY TIME IN LINE 160 TO ANOTHER NUMBER. ─ELETE THE REVERSE FIELD (I.E. PRINT IN UNREVERSED MODE), CHANGE THE ORDER OF COLORS IN THE ├╙$.
  57.  
  58.      ┴ BIT MORE DIFFICULT, BUT AN INTERESTING THING TO DO IS TO CHANGE THE MESSAGE, BY MAKING IT THE SAME LENGTH AS THE ├$ UP TOP. ╫HAT HAPPENS? ├AN YOU EXPLAIN WHY? ├AN YOU DO A CONVERSE PROCESS? ├HANGE THE ├$ STRING. ╫HAT HAPPENS WHEN THE ├$ STRING IS SHORTER THAN 15 CHARACTERS? ├AN YOU DO ANYTHING ABOUT IT? ├AN YOU DESIGN A TOTAL INDEPENDENCE OF THE LENGTHS OF THE TWO STRINGS?
  59.